# TODO: Add comment
# 
# Author: roger
###############################################################################


logReturn <- function(x){
	diff(log(x))
}

simpleReturn <- function(x){
	exp(logReturn(x))-1
}